data <- d1
strata <- 'congressional.district'
ITT_S1_path <- itt('path.to.citizenship.followup', 
                     'path.to.citizenship.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
ITT_S1_immg <- itt('legal.immigration.followup', 
                     'legal.immigration.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
ITT_S1_trus <- itt('trust.followup', 
                     'trust.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
ITT_S1_appr <- itt('approval.followup', 
                     'approval.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
ITT_S1_vint <- itt('vote.followup', 
                     'vote.baseline', 
                     data, B, strata, incl_sameparty = TRUE)
ITT_S1_actv <- itt('vote.november', 
                     'vote.baseline', 
                     data, B, strata, incl_sameparty = TRUE)